object frmAtendControle: TfrmAtendControle
  Left = 234
  Top = 208
  AutoScroll = False
  Caption = 'Controle de Atendimentos'
  ClientHeight = 606
  ClientWidth = 981
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 981
    Height = 606
    Align = alClient
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 979
      Height = 64
      Align = alTop
      TabOrder = 0
      object rgFiltro: TRadioGroup
        Left = 1
        Top = 1
        Width = 224
        Height = 62
        Align = alLeft
        Caption = 'Consultar por:'
        Columns = 2
        Items.Strings = (
          'Data de Abertura'
          'Pessoa'
          'Situa'#231#227'o'
          'Usu'#225'rio')
        TabOrder = 0
        OnClick = rgFiltroClick
      end
      object Panel3: TPanel
        Left = 225
        Top = 1
        Width = 280
        Height = 62
        Align = alLeft
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object Label1: TLabel
          Left = 136
          Top = 40
          Width = 6
          Height = 13
          Caption = 'a'
          Visible = False
        end
        object Label2: TLabel
          Left = 8
          Top = 8
          Width = 62
          Height = 13
          Caption = 'Consulta por:'
        end
        object Edit1: TEdit
          Left = 8
          Top = 32
          Width = 121
          Height = 21
          CharCase = ecUpperCase
          Enabled = False
          TabOrder = 0
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
        end
        object Edit2: TEdit
          Left = 152
          Top = 32
          Width = 121
          Height = 21
          CharCase = ecUpperCase
          Enabled = False
          TabOrder = 1
          Visible = False
          OnExit = Edit2Exit
        end
      end
      object btnSair: TBitBtn
        Left = 904
        Top = 32
        Width = 75
        Height = 25
        Caption = 'Sair'
        TabOrder = 2
        OnClick = btnSairClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
          F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
          000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
          338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
          45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
          3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
          F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
          000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
          338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
          4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
          8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
          0000}
        NumGlyphs = 2
      end
      object btnConsulta: TBitBtn
        Left = 904
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Consultar'
        TabOrder = 3
        OnClick = btnConsultaClick
      end
    end
    object dbgrControle: TDBGrid
      Left = 1
      Top = 65
      Width = 979
      Height = 415
      Align = alClient
      DataSource = DtSrc
      DefaultDrawing = False
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = dbgrControleCellClick
      OnDrawColumnCell = dbgrControleDrawColumnCell
      OnDblClick = dbgrControleDblClick
      OnTitleClick = dbgrControleTitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'ATE_COD_PROTOCOLO'
          Title.Caption = 'PROTOCOLO'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATE_ABERTURA'
          Title.Caption = 'DATA DE ABERTURA'
          Width = 119
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATE_PREVISAO'
          Title.Caption = 'PREVISAO'
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PES_NOME'
          Title.Caption = 'PESSOA'
          Width = 200
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATE_CONTATO'
          Title.Caption = 'CONTATO'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATE_SITUACAO'
          Title.Caption = 'SITUACAO'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATE_CONCLUSAO'
          Title.Caption = 'DATA DE CONCLUSAO'
          Width = 122
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATE_SETOR'
          Title.Caption = 'SETOR'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'USU_NOME'
          Title.Caption = 'USUARIO'
          Width = 124
          Visible = True
        end>
    end
    object Memo1: TMemo
      Left = 1
      Top = 480
      Width = 979
      Height = 125
      Align = alBottom
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 2
      WantTabs = True
      WordWrap = False
    end
  end
  object DtSrc: TDataSource
    DataSet = SQLC_Grid
    Left = 320
    Top = 336
  end
  object SQLC_AtendConsulta: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'   are.are_codigo,'#13#10'   are.are_usuario,'#13#10'   are.ate_cod' +
      '_protocolo,'#13#10'   are.are_descricao,'#13#10'   are.are_datahora'#13#10'   FROM' +
      ' ATENDIMENTOS_REGISTROS ARE, ATENDIMENTOS ATE'#13#10'WHERE ARE.ATE_COD' +
      '_PROTOCOLO = ATE.ATE_COD_PROTOCOLO'#13#10'AND  ARE.ATE_COD_PROTOCOLO= ' +
      ':ATE_COD_PROTOCOLO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'ATE_COD_PROTOCOLO'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 488
    Top = 312
    object SQLC_AtendConsultaARE_CODIGO: TIntegerField
      FieldName = 'ARE_CODIGO'
      Required = True
    end
    object SQLC_AtendConsultaARE_USUARIO: TStringField
      FieldName = 'ARE_USUARIO'
      Required = True
      Size = 3
    end
    object SQLC_AtendConsultaATE_COD_PROTOCOLO: TIntegerField
      FieldName = 'ATE_COD_PROTOCOLO'
      Required = True
    end
    object SQLC_AtendConsultaARE_DESCRICAO: TStringField
      FieldName = 'ARE_DESCRICAO'
      Required = True
      Size = 255
    end
    object SQLC_AtendConsultaARE_DATAHORA: TSQLTimeStampField
      FieldName = 'ARE_DATAHORA'
      Required = True
    end
    object SQLC_AtendConsultaUSU_NOME: TStringField
      FieldKind = fkLookup
      FieldName = 'USU_NOME'
      LookupDataSet = DtmGeral.SQLQ_dados
      LookupKeyFields = 'USU_CODIGO'
      LookupResultField = 'USU_NOME'
      KeyFields = 'ARE_USUARIO'
      Lookup = True
    end
  end
  object SQLC_Grid: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'A.ATE_COD_PROTOCOLO,'#13#10'A.ATE_PESSOA,'#13#10'A.ATE_USUARIO,'#13#10'A.' +
      'ATE_ABERTURA,'#13#10'A.ATE_CONTATO,'#13#10'A.ATE_SITUACAO,'#13#10'A.ATE_CONCLUSAO,' +
      #13#10'A.ATE_SETOR,'#13#10'A.ATE_PREVISAO,'#13#10'U.USU_NOME,'#13#10'P.PES_NOME'#13#10'FROM A' +
      'TENDIMENTOS A'#13#10'LEFT OUTER JOIN PESSOAS P ON (A.ATE_PESSOA=P.PES_' +
      'IDFCOD)'#13#10'LEFT OUTER JOIN USUARIOS U ON (A.ATE_USUARIO=U.USU_CODI' +
      'GO)'
    Aggregates = <>
    Filtered = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    AfterScroll = SQLC_GridAfterScroll
    DBConnection = DtmGeral.ConexaoBanco
    Left = 408
    Top = 288
    object SQLC_GridATE_COD_PROTOCOLO: TIntegerField
      FieldName = 'ATE_COD_PROTOCOLO'
      Required = True
    end
    object SQLC_GridATE_PESSOA: TIntegerField
      FieldName = 'ATE_PESSOA'
      Required = True
    end
    object SQLC_GridATE_USUARIO: TStringField
      FieldName = 'ATE_USUARIO'
      Required = True
      Size = 3
    end
    object SQLC_GridATE_ABERTURA: TSQLTimeStampField
      FieldName = 'ATE_ABERTURA'
      Required = True
    end
    object SQLC_GridATE_CONTATO: TStringField
      FieldName = 'ATE_CONTATO'
      Size = 30
    end
    object SQLC_GridATE_SITUACAO: TStringField
      FieldName = 'ATE_SITUACAO'
      Required = True
      Size = 1
    end
    object SQLC_GridATE_CONCLUSAO: TSQLTimeStampField
      FieldName = 'ATE_CONCLUSAO'
    end
    object SQLC_GridATE_SETOR: TStringField
      FieldName = 'ATE_SETOR'
      Size = 3
    end
    object SQLC_GridATE_PREVISAO: TSQLTimeStampField
      FieldName = 'ATE_PREVISAO'
      Required = True
    end
    object SQLC_GridPES_NOME: TStringField
      FieldName = 'PES_NOME'
      Size = 60
    end
    object SQLC_GridUSU_NOME: TStringField
      FieldName = 'USU_NOME'
      Size = 60
    end
  end
  object dsNovoRegistro: TDataSource
    DataSet = SQLC_AtendConsulta
    Left = 472
    Top = 384
  end
end
